*PREPARED BY
/*
Professor Kasper M. Hansen, Ph.D.
University of Copenhagen, Department of Political Science
kmh@ifs.ku.dk, www.kaspermhansen.eu @kaspermhansen
Phone: +45 5124 5005 or +45 3532 3392
*/
 
******** CSES ROUND 5, DOFIL merging DATA from Danish 2019 election (CSESfile) 


/*Variables are presented in five groupings:

1) E1001-E1999 Identification, weight, and election study variables

2) E2001-E2999 Demographic variables

3) E3001-E3999 Micro-level (survey) data (the CSES Module 5 questionnaire)

4) E4001-E4999 District-level data

5) E5001-E5999 Macro-level data*/




*** Indlæser data fra DK FV19 ***
* can be found at Danish Archives
*https://rafil.azurewebsites.net/aabnedata/valgundersoegelser/Valgunders%C3%B8gelsen%202019.zip
*only use the CSES dataset

*setting user folder

cd "/Users/xxx/CSES 2019"


use "CSES_med_dst_data_public_17august.dta", clear 


******* Omkodning til CSES5 koder *******


*** ID-variable kodning ***

gen E1001="CSES-MODULE-5"

gen E1002_VER="VER2019-MAY-21"

gen E1002_DOI="doi:10.7804/cses.module5.2019-05-21"

gen E1003=20802019
* står her bare for info: label define E1003 20802019 "20802019. DENMARK (2019)", modify
*label values E1003 E1003

gen E1004="DEN_2019"

gen E1006="2080"
label variable E1006 "ID COMPONENT - POLITY"

gen E1006_UN="208"
label variable E1006_UN  "ID COMPONENT - POLITY UN CODE"

gen E1006_NAM="Denmark"
label variable E1006_NAM "ID COMPONENT - POLITY NAME"

gen E1007=999
label variable E1007 "SAMPLE COMPONENT"

gen E1008=2019
label variable E1008 "ID COMPONENT - ELECTION YEAR"

rena Id E1009 
label variable E1009 "ID COMPONENT - RESPONDENT WITHIN ELECTION STUDY"

*********** vægte:

rena weight_1 E1010_1
recode E1010_1 (.=1)
rena weight_3 E1010_2
recode E1010_2 (.=1)
rena weight_5 E1010_3
recode E1010_3 (.=1)

clonevar E1014_1 = E1010_1
recode E1014_1 (.=1)
clonevar E1014_2 = E1010_2
recode E1014_2 (.=1)
clonevar E1014_3 = E1010_3
recode E1014_3 (.=1)

gen E1031 = slutdato - startdato

gen E1035_1=slutdato-date("Jun 05, 2019","MDY")
codebook E1035_1,tab(100)

*interview duration time:
gen E1027 = starttidspunkt - sluttidspunkt

egen E1005 = concat(E1006 E1008 E1009)
label variable E1005 "ID VARIABLE - RESPONDENT"

*Faktor-vægte og polity-vægte - findes ikke i FV19 datasæt, sættes derfor til 1
gen E1011_1=1
gen E1011_2=1
gen E1011_3=1
gen E1012_1=1
gen E1012_2=1
gen E1012_3=1
gen E1013=1

*Valgform - parlamentarisk eller præsidentiel/parlamentarisk:
gen E1015=10

*Valgdato måned/dag/år:
gen E1016=6
gen E1017=5
gen E1018=2019
*ingen 2. runde af valg, derfor kodes de næste til 96:
gen E1019=96
gen E1020=96
gen E1021=9996

gen E1022=1
gen E1023=1
*mode of interview :
gen E1024_1=5
gen E1024_2=0
gen E1024_3=0
gen E1025_1=5
gen E1025_2=0
gen E1025_3=0

gen E1026=0

gen E1028=999999
gen E1029=9

*hvornår interviews er startet efter valget - dagen efter valget:
gen E1030=1

gen E1032=6
gen E1033=6
gen E1034=2019
gen E1035_2=9996
gen E1036=29 //kode for dansk sprog
gen E1037=2

*resp. fødselsdag:
encode D01_o2, gen(fmaaned)
recode fmaaned (1=4 "04. APRIL") (2=8 "08. AUGUST") (3=12 "12. DECEMBER") (4=2 "02. FEBRUARY") (5=1 "01. JANUARY") ///
(6=7 "07. JULY") (7=6 "06. JUNE") (8=5 "05. MAY") (9=3 "03. MARCH") (10=11 "11. NOVEMBER") (11=10 "10. OCTOBER") ///
(12=9 "09. SEPTEMBER") (13 .=99), gen(E2001_M)
rena D01_o3 E2001_Y
replace E2001_Y=9999 if E2001_Y==.

*resp. køn og udd:
recode D02 (2=1 "1. MALE") (1=2 "2. FEMALE") (4=7 "7. VOLUNTEERED: REFUSED") (. 3 5=9), gen(E2002)
recode D03 (1=1 "01. ISCED LEVEL 0 - EARLY CHILDHOOD EDUCATION") (2=2 "02. ISCED LEVEL 1 - PRIMARY") ///
(5 =3 "03. ISCED LEVEL 2 - LOWER SECONDARY") (3 4=4 "04. ISCED LEVEL 3 - UPPER SECONDARY") ///
(6= 5 "05. ISCED LEVEL 4 - POST-SECONDARY NON-TERTIARY") (7=7 "07. ISCED LEVEL 6 - BACHELOR OR EQUIVALENT") ///
(8=8 "08. ISCED LEVEL 7 - MASTER OR EQUIVALENT") (9=9 "09. ISCED LEVEL 8 - DOCTORAL OR EQUIVALENT") ///
(10=96 "96. NONE (NO EDUCATION)") (11=98 "98. VOLUNTEERED: DON'T KNOW") (12=97 "97.VOLUNTEERED: REFUSED") (.=99), gen(E2003)

*resp. civilstand:
recode D04 (1=1 "1. MARRIED OR LIVING TOGETHER AS MARRIED") (2=2 "2. WIDOWED") (3=3 "3. DIVORCED OR SEPARATED") ///
(4=4 "4. SINGLE, NEVER MARRIED") (5=8 "8. VOLUNTEERED: DON'T KNOW") (6=7 "7. VOLUNTEERED: REFUSED") (.=9), gen(E2004)

*resp. fagforeningsmedlem:
recode D05 (2=0 "0. R IS NOT A MEMBER OF A UNION") (1=1 "1. R IS A MEMBER OF A UNION") ///
(3=8 "8. VOLUNTEERED: DON'T KNOW") (4=7 "7. VOLUNTEERED: REFUSED") (.=9), gen(E2005)

recode D06 (1 2=1 "01. EMPLOYED: FULL-TIME (32 OR MORE HOURS WEEKLY)") (3=2 "02. EMPLOYED: PART-TIME (15-32 WEEKLY)") ///
(4=3 "03. EMPLYED: LESS THAN 15 HOURS") (5=4 "04. HELPING FAMILY MEMBER") (6=5 "05. UNEMPLOYED") ///
(7=6 "06. STUDENT, IN SCHOOL, IN VOCATIONAL TRAINING") (8=7 "07. RETIRED") (9=8 "08. HOUSEWIFE, HOME DUTIES") ///
(12=9 "09. PERMANENTLY DISABLED") (11 13 14=10 "10. OTHERS, NOT IN LABOR FORCE") (15=98 "98. VOLUNTEERED: DON'T KNOW") ///
(16=97 "97. VOLUNTEERED: REFUSED") (.=99 "99. MISSING"), gen(E2006)

*E2007 skal laves efter der er kommet stillingsvariabel i endeligt datasæt:
gen E2007=999

recode D07c (1 2=1 "1. WHITE COLLAR") (3 4 5=2 "2. WORKER") (6=4 "4. SELF-EMPLOYED") (7=8 "8. VOLUNTEERED: DON'T KNOW") ///
(8=7 "7. VOLUNTEERED: REFUSED") (.=9 "9. MISSING"), gen(E2008)

recode D08 (1=2 "2. PRIVATE SECTOR") (2 3 4=1 "1.PUBLIC SECTOR") (6=3 "3. MIXED") ///
(5=4 "4. THIRD SECTOR/NON-PROFIT SECTOR") (7=8 "8.VOLUNTEERED: DON'T KNOW") (8=7 "7. VOLUNTEERED: REFUSED") ///
(.=9 "9. MISSING"), gen(E2009)

recode D09 (1 2 3=1 "1. LOWEST INCOME QUINTILE") (4 5 6 = 2 "2. SECOND HOUSEHOLD QUINTILE") ///
(7 8 9 =3 "3. THIRD HOUSEHOLD QUINTILE") (10 11 12= 4 "4. FOURTH HOUSEHOLD QUINTILE") ///
(13 14 15=5 "5. HIGHEST HOUSEHOLD QUINTILE") (16=8 "8. VOLUNTEERED: DON'T KNOW") (17=7 "7. VOLUNTEERED: REFUSED") ///
(.=9 "9. MISSING"), gen(E2010)

rena D09 E2011
recode E2011 (.=99999999)

*antal i husstand:
rena D20_o1 nD20
gen E2012=.
replace E2012=14 if nD20==1
replace E2012=1 if nD20==2
replace E2012=25 if nD20==3
replace E2012=2 if nD20==4
replace E2012=3 if nD20==5
replace E2012=4 if nD20==6
replace E2012=5 if nD20==7
replace E2012=6 if nD20==8
replace E2012=9 if nD20==9
replace E2012=10 if nD20==8
replace E2012=99 if D20==2 | nD20==.
replace E2012=97 if D20==3
replace E2012=99 if E2012==.

recode D10 (1=8300 "8300. NONE") (2=1208 "1208. LUTHERAN") (3=1101 "1101. ROMAN CATHOLIC") ///
(4 5=3000 "3000. MUSLIM; MOHAMMEDAN; ISLAM (NO DENOMINATION GIVEN)") (6=4000 "4000. BUDDHIST") ///
(7=5000 "5000. HINDU") (8=2000 "2000. JEWISH") (9=9600 "9600. OTHER: NOT SPECIFIED") ///
(10=9998 "9998. VOLUNTEERED: DON'T KNOW") (11=9997 "9997. VOLUNTEERED: REFUSED") (.=9999), gen(E2013)

recode D11 (1=1 "1. NEVER") (2=2 "2. ONCE A YEAR") (3=3 "3. TWO TO ELEVEN TIMES A YEAR") ///
(4=4 "4. ONCE A MONTH") (5=5 "5. TWO OR MORE TIMES A MONTH") (6=6 "6. ONCE A WEEK/MORE THAN ONCE A WEEK") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (8=7 "7. VOLUNTEERED: REFUSED") (.=9 "9.MISSING"), gen(E2014)

gen E2015=999 
label variable E2015 "race"
label define E2015 999 "999. MISSING"
label values E2015 E2015

gen E2016=999 
label variable E2016 "ethnicity"
label define E2016 999 "999. MISSING"
label values E2016 E2016

gen E2017=.
label variable E2017 "COUNTRY OF BIRTH"
replace E2017=208 if D14==1
replace E2017=900 if D14==2 
replace E2017=998 if D14==4
replace E2017=999 if D14==.
label define E2017 208 "208. DANISH" 900 "900. [SEE ELECTION STUDY NOTES]" 998 "998. VOLUNTEERED: REFUSED" 999 "999. MISSING"
label values E2017 E2017 
recode E2017 (.=999)

drop D14 D14b D14b_o1

*forældre født udenfor dk:
gen E2018=.
replace E2018=0 if D16_1_resp==1 | D16_2_resp==1
replace E2018=1 if D16_1_resp==2 | D16_2_resp==2
replace E2018=7 if D16_1_resp==3 | D16_2_resp==3
replace E2018=9 if D16_1_resp==. | D16_2_resp==.
replace E2018=8 if D16_1_resp==4 | D16_2_resp==4
label variable E2018 "WAS EITHER BIOLOGICAL PARENT BORN OUTSIDE OF THE COUNTRY"
label define E2018 0 "0. NO" 1 "1. YES" 7 "7. VOLUNTEERED: REFUSED" 8 "8. VOLUNTEERED: DON'T KNOW"
label values E2018 E2018

*sprog tale derhjemme:
recode D17a (1=29 ".29. DANISH") (. 2=999 "999. MISSING") (3=998 "998. VOLUNTEERED: DON'T KNOW") ///
(4=997 "997. VOLUNTEERED: REFUSED"), gen(E2019)

rena region E2020
label variable E2020 "REGION OF RESIDENCE"

*valgkreds E2021 kodes senere

*landlig eller by-bopæl:
recode D19 (1 3 =4 "4. LARGE TOWN OR CITY") (2 4=3 "3. SUBURBS OF LARGE TOWN OR CITY") ///
(5 6 7 8=2 "2. SMALL OR MIDDLE-SIZED TOWN") (9 10 11=1 "1. RURAL AREA OR VILLAGE") ///
(13=7 "7. VOLUNTEERED: REFUSED") (12=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E2022)



******** HER STARTER VARIABLE DER HANDLER OM POLITIK OG SOM IKKE ER BAGGRUNDSVARIABLE:********

*politisk interesse:
recode q01_1_resp (1=1 "1. VERY INTERESTED") (2=2 "2. SOMEWHAT INTERESTED") ///
(3=3 "3. NOT VERY INTERESTED") (4=4 "4. NOT ALL INTERESTED") (5=7 "7. VOLUNTEERED: REFUSED") ///
(6=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3001)

*politik i medierne:
recode q02_1_resp (1=1 "1. VERY CLOSELY") (2=2 "2. FAIRLY CLOSELY") (3=3 "3. NOT VERY CLOSELY") ///
(4=4 "4. NOT AT ALL") (5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3002)

*forståelse af de vigtigste problemstillinger:
recode q03_1_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3003)

*attitude over for "eliten":

recode q04_1_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3004_1)

gen E3004_1_PT=9
gen E3004_8_PT=9

recode q04_2_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3004_2)

recode q04_3_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3004_3)

recode q04_4_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3004_4)

recode q04_5_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3004_5)

recode q04_6_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3004_6)

recode q04_7_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3004_7)

*holdning til minoriteter og integration:
recode q05_1_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3005_1)

recode q05_2_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3005_2)

recode q05_3_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3005_3)

recode q05_4_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3005_4)

recode q05_5_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3005_5)

*national identitet:

recode q06_1_resp (1=1 "1. VERY IMPORTANT") (2=2 "2. FAIRLY IMPORTANT") (3=3 "3. NOT VERY IMPORTANT") ///
(4=4 "4. NOT IMPORTANT AT ALL") (5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") ///
(.=9 "9. MISSING"), gen(E3006_1)

recode q06_2_resp (1=1 "1. VERY IMPORTANT") (2=2 "2. FAIRLY IMPORTANT") (3=3 "3. NOT VERY IMPORTANT") ///
(4=4 "4. NOT IMPORTANT AT ALL") (5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") ///
(.=9 "9. MISSING"), gen(E3006_2)

recode q06_3_resp (1=1 "1. VERY IMPORTANT") (2=2 "2. FAIRLY IMPORTANT") (3=3 "3. NOT VERY IMPORTANT") ///
(4=4 "4. NOT IMPORTANT AT ALL") (5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") ///
(.=9 "9. MISSING"), gen(E3006_3)

recode q06_4_resp (1=1 "1. VERY IMPORTANT") (2=2 "2. FAIRLY IMPORTANT") (3=3 "3. NOT VERY IMPORTANT") ///
(4=4 "4. NOT IMPORTANT AT ALL") (5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") ///
(.=9 "9. MISSING"), gen(E3006_4)

gen E3006_5_PT=9
gen E3006_6_PT=9
gen E3006_7_PT=9
gen E3006_8_PT=9

*korruption:
recode q07_1_resp (1=1 "1. VERY WIDESPREAD") (2=2 "2. QUITE WIDESPREAD") (3=3 "3. NOT VERY WIDESPREAD") ///
(4=4 "4. IT HARDLY HAPPENS AT ALL") (5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") ///
(.=9 "9. MISSING"), gen(E3007)

*ULIGHED reduktion:
recode q08_1_resp (1=1 "1. STRONGLY AGREE") (2=2 "2. SOMEWHAT AGREE") (3=3 "3. NEITHER AGREE NOR DISAGREE") ///
(4=4 "4. SOMEWHAT DISAGREE") (5=5 "5. STRONGLY DISAGREE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3008)

gen E3008_PT=99

*regeringens performance:
recode q09_1_resp (1=1 "1. VERY GOOD JOB") (2=2 "2. GOOD JOB") (3=3 "3. BAD JOB") (4=4 "4. VERY BAD JOB") ///
(5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3009)

recode q10a_1_resp (2=0 "0. NO") (1=1 "1. YES") (3=7 "7. VOLUNTEERED: REFUSED") ///
(4=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3010_1)

recode q10b (1=208001) (2=208002) (3=208003) (4=208004) (5=208005) (6=208006) ///
(7=208007) (8=208008) (9=208009) (10=208010) (11=208011) (12=208012) (14=999997) ///
(. 13=999999), gen(E3010_2)

/*
label define E3010_2 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" ///
208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" 208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" ///
208007 "208007. DEN - LIBERAL ALLIANCE" 208008 "208008. DEN - CHRISTIAN DEMOCRATS" ///
208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999997 "999997. VOLUNTEERED: REFUSED" 999999 "999999. MISSING", modify
label values E3010_2 E3010_2
*/

recode q11_1_resp (1=1 "1. GOTTEN MUCH BETTER") (2=2 "2. GOTTEN SOMEWHAT BETTER") ///
(3=3 "3. STAYED ABOUT THE SAME") (4=4 "4. GOTTEN SOMEWHAT WORSE") (5=5 "5. GOTTEN MUCH WORSE") ///
(6=7 "7. VOLUNTEERED: REFUSED") (7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3011)

*præsident stemme /overhus- ikke i dk:
gen E3012_PR_1=96
gen E3012_PR_2=96
gen E3012_UH=96
gen E3013_PR_1=999995
gen E3013_PR_2=999995
gen E3013_LH_DC=999995
gen E3013_LH_PF=95
gen E3013_UH_PL=999995
gen E3013_UH_DC_1=999995
gen E3013_UH_DC_2=999995
gen E3013_UH_PF=95
gen E3014_PR_1=95
gen E3014_PR_2=95
gen E3014_UH=95
gen E3015_PR_1=999995
gen E3015_PR_2=999995
gen E3015_LH_DC=999995
gen E3015_UH_PL=999995
gen E3015_UH_DC_1=999995
gen E3015_UH_DC_2=999995


*spm. om Folketinget aka. lower house:
recode q12a_1_resp (2=0 "0. RESPONDENT DID NOT/WILL NOT CAST A BALLOT") (1=1 "1. RESPONDENT CAST/WILL CAST A BALLOT") ///
(3=93 "93. VOLUNTEERED: RESPONDENT NOT REGISTERED ON ELECTORAL LISTS") (4=97 "97. VOLUNTEERED: REFUSED") ///
(5=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3012_LH)

recode q12c (1=208001) (2=208002) (3=208003) (4=208004) (5=208005) (6=208006) ///
(7=208007) (8=208008) (9=208009) (10=208010) (11=208011) (12=208012) ///
(14=999993) (16=999997) (. 13=999999), gen(E3013_LH_PL)

/*label define E3013_LH_PL 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" ///
208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" 208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" ///
208007 "208007. DEN - LIBERAL ALLIANCE" 208008 "208008. DEN - CHRISTIAN DEMOCRATS" ///
208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999993 "999993. INVALID/BLANK BALLOT" 999997 "999997. VOLUNTEERED: REFUSED" 999999 "999999. MISSING", modify
label values E3013_LH_PL E3013_LH_PL
*/

gen E3013_OUTGOV=.
replace E3013_OUTGOV=0 if q12c==1 | q12c==2 | q12c==6 | q12c==11 | q12c==12
replace E3013_OUTGOV=1 if q12c==3 | q12c==4 | q12c==5 | q12c==7 | q12c==8 | q12c==9 | q12c==10
replace E3013_OUTGOV=999997 if q12c==14
replace E3013_OUTGOV=999999 if q12c==. | E3013_OUTGOV==.

recode q13a_1_resp (2=0 "0. RESPONDENT DID NOT CAST A BALLOT") (1=1 "1. RESPONDENT CAST A BALLOT") ///
(3=93 "93. VOLUNTEERED: RESPONDENT NOT REGISTERED ON ELECTORAL LISTS") (4=97 "97. VOLUNTEERED: REFUSED") ///
(5=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3014_LH)

recode q13c (1=208001) (2=208002) (3=208003)(4=208004) (5=208005) (6=208006) (7=208007) (8=208008) ///
(9=208009) (10=208010) (11=208011) (12=208012) (14=999997) (. 11 13=999999), gen(E3015_LH_PL)

/* defineres efter merge - står her bare så jeg kan se hvad der er hvad i variablen:
label define E3015_LH_PL 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" ///
208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" 208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" ///
208007 "208007. DEN - LIBERAL ALLIANCE" 208008 "208008. DEN - CHRISTIAN DEMOCRATS" ///
208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999997 "999997. VOLUNTEERED: REFUSED" 999999 "999999. MISSING", modify
label values E3015_LH_PL E3015_LH_PL
*/

recode q14a (1=1 "1. WHO PEOPLE VOTE FOR WON'T MANY ANY DIFFERENCE") ///
(5=5 "5. WHO PEOPLE VOTE FOR CAN MAKE A BIG DIFFERENCE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3016_1)

recode q14b (1=1 "1. WHO PEOPLE VOTE FOR WON'T MANY ANY DIFFERENCE") ///
(5=5 "5. WHO PEOPLE VOTE FOR CAN MAKE A BIG DIFFERENCE") (6=7 "7. VOLUNTEERED: REFUSED") ///
(7=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3016_2)

*partier kan lide - Riskær, KD og Stram Kurs er ikke med:
recode q15_1_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_A)

recode q15_2_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_B)

recode q15_3_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_C)

recode q15_4_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_D)

recode q15_6_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_E)

recode q15_7_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_F)

recode q15_9_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_G)

recode q15_10_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_H)

recode q15_11_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_I)

recode q15_12_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") ///
(11=96 "96. HAVEN'T HEARD OF PARTY") (12=97 "97. VOLUNTEERED: REFUSED") ///
(13=98 "98. VOLUNTEERED: DON'T KNOW") (.=99 "99. MISSING"), gen(E3017_J)

*partileder - Riskær, KD og Stram Kurs er ikke med:
recode q16_1_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_A)

recode q16_2_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_B)

recode q16_3_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_C)

recode q16_4_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_D)

recode q16_6_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_E)

recode q16_8_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_F)

recode q16_9_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_G)

recode q16_10_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_H)

recode q16_11_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_I)

recode q16_12_resp (0=0 "00. STRONGLY DISLIKE") (10=10 "10. STRONGLY LIKE") (11=96 "96. HAVEN'T HEARD OF LEADER") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW ENOUGH ABOUT/DON'T KNOW WHERE TO RATE") ///
(.=99 "99. MISSING"), gen(E3018_J)


*left/right party - Riskær, KD og Stram Kurs er ikke med:
recode q17_1_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_A)

recode q17_2_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_B)

recode q17_3_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_C)

recode q17_4_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_D)

recode q17_6_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_E)

recode q17_7_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_F)

recode q17_9_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_G)

recode q17_10_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_H)

recode q17_11_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_I)

recode q17_12_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3019_J)


*selv:
recode q18_1_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF LEFT-RIGHT") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3020)


*værdipolitisk skala:
recode q19a_1_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_A)

recode q19a_2_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_B)

recode q19a_3_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_C)

recode q19a_4_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_D)

recode q19a_6_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_E)

recode q19a_7_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_F)

recode q19a_9_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_G)

recode q19a_10_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_H)

recode q19a_11_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_I)

recode q19a_12_resp (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(13=97 "97. VOLUNTEERED: REFUSED") (12=96 "96. VOLUNTEERED: HAVEN'T HEARD OF PARTY") ///
(14=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3021_J)


*Selv:
recode q20a_1_resp  (0=0 "00. LEFT") (10=10 "10. RIGHT") (11=95 "95. VOLUNTEERED: HAVEN'T HEARD OF [SCALE]") ///
(12=97 "97. VOLUNTEERED: REFUSED") (13=98 "98. VOLUNTEERED: DON'T KNOW WHERE TO PLACE") (.=99 "99. MISSING"), gen(E3022)

recode q21_1_resp (1=1 "1. VERY SATISFIED") (2=2 "2. FAIRLY SATISFIED") (3=4 "4. NOT VERY SATISFIED") ///
(4=5 "5. NOT AT ALL SATISFIED") (5=7 "7. VOLUNTEERED: REFUSED") (6=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3023)

*tilknytning til parti:
recode q22a_1_resp (2=0 "0. NO") (1=1 "1. YES") (3=7 "7. VOLUNTEERED: REFUSED") (4=8 "8. VOLUNTEERED: DON'T KNOW") ///
(.=9 "9. MISSING"), gen(E3024_1)

recode q22b_1_resp (2=0 "0. NO") (1=1 "1. YES") (3=7 "7. VOLUNTEERED: REFUSED") (4=8 "8. VOLUNTEERED: DON'T KNOW") ///
(.=9 "9. MISSING"), gen(E3024_2)

recode q22c (1=208001) (2=208002) (3=208003) (4=208004) (5=208005) (6=208006) ///
(7=208007) (8=208008) (9=208009) (10=208010) (11=208011) (12=208012) ///
(13=999992) (15=999997) (. 14=999999), gen(E3024_3)

/* defineres efter merge - står her bare så jeg kan se hvad der er hvad i variablen:
label define E3024_3 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" 208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" ///
208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" 208007 "208007. DEN - LIBERAL ALLIANCE" ///
208008 "208008. DEN - CHRISTIAN DEMOCRATS" 208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999992 "999992. OTHER CANDIDATE/PARTY (NOT FURTHER SPECIFIED)" 999997 "999997. VOLUNTEERED: REFUSED" ///
999999 "999999. MISSING", modify
label values E3024_3 E3024_3
*/


recode q22d (1=1 "1. VERY CLOSE") (2=2 "2. SOMEWHAT CLOSE") (3=3 "3. NOT VERY CLOSE") ///
(5=7 "7. VOLUNTEERED: REFUSED") (4=8 "8. VOLUNTEERED: DON'T KNOW") (.=9 "9. MISSING"), gen(E3024_4)




*** Variable på distriktsniveau, dermed ikke fra valgundersøgelsen men generelt om hvordan det danske valgsystem er struktureret:

*forskel i selvrapporteret og kodet kommunenr. til storkredse:

encode c_kom, gen(c_komn)
gen storkreds=.
replace storkreds=1 if c_komn==2 | c_komn==3 | c_komn==6 | c_komn==17
replace storkreds=2 if c_komn==7 | c_komn==14 | c_komn==8 | c_komn==15 | c_komn==10 | c_komn==12 | c_komn==5 | c_komn==16 ///
| c_komn==18 | c_komn==13 | c_komn==11 | c_komn==9 | c_komn==4
replace storkreds=3 if c_komn==22 | c_komn==21 | c_komn==24 | c_komn==23 | c_komn==33 | c_komn==27 | c_komn==30 | c_komn==19 ///
| c_komn==26 | c_komn==25 | c_komn==20
replace storkreds=4 if c_komn==47
replace storkreds=5 if c_komn==43 | c_komn==45 | c_komn==46 | c_komn==44 | c_komn==36 | c_komn==40 | c_komn==29 | c_komn==42 ///
| c_komn==28 | c_komn==32 | c_komn==31 | c_komn==35 | c_komn==37 | c_komn==34 | c_komn==38 | c_komn==41 | c_komn==39
replace storkreds=6 if c_komn==53 | c_komn==49 | c_komn==48 | c_komn==50 | c_komn==51 | c_komn==52 | c_komn==54 | c_komn==55 ///
| c_komn==56 | c_komn==57
replace storkreds=7 if c_komn==60 | c_komn==61 | c_komn==66 | c_komn==62 | c_komn==63 | c_komn==64 | c_komn==65 | c_komn==59 ///
| c_komn==67 | c_komn==69 | c_komn==58 | c_komn==70
replace storkreds=8 if c_komn==83 |  c_komn==76 |  c_komn==77 |  c_komn==79 | c_komn==75 | c_komn==78 | c_komn==81 | c_komn==82 ///
|  c_komn==86 |  c_komn==68
replace storkreds=9 if c_komn==73 | c_komn==74 | c_komn==87 | c_komn==88 | c_komn==80 | c_komn==84 | c_komn==71 | c_komn==72 ///
| c_komn==85
replace storkreds=10 if c_komn==92 | c_komn==94 | c_komn==99 | c_komn==91 | c_komn==97 | c_komn==89 | c_komn==90 | c_komn==93 ///
| c_komn==95 | c_komn==96 | c_komn==98
replace storkreds=999 if c_komn==. | c_komn==1

clonevar E2021 = storkreds


codebook storkreds E2021, tab(100) //bruger min kodede fra kommunevariabel

gen E4001=. 
replace E4001=22 if storkreds==1 //kbh storkreds 16 + 6 kreds
replace E4001=13 if  storkreds==2 //kbh omegn storkreds 11 +2 kreds
replace E4001=13 if storkreds==3 //nordsjælland 10 +3 kreds
replace E4001=2 if storkreds==4 //bornholm
replace E4001=28 if storkreds==5 //Sjælland 
replace E4001=14 if storkreds==6 //fyns storkreds 12 + 2 kreds
replace E4001=23 if storkreds==7 //sydjylland 18 + 5 kreds
replace E4001=25 if storkreds==8 //østjylland 18 + 7 kreds
replace E4001=16 if storkreds==9 //vestjylland 13+ 3 kreds
replace E4001=19 if storkreds==10 //nordjyllands storkreds 15+ 4 kreds 
replace E4001=999 if storkreds==11| E4001==.
*135 storkredsmandater + 40 tillæg


gen E4001_N=997 

gen E4002=.
replace E4002=116 if storkreds==1
replace E4002=86 if storkreds==2
replace E4002=68 if storkreds==3
replace E4002=25 if storkreds==4
replace E4002=115 if storkreds==5
replace E4002=76 if storkreds==6
replace E4002=115 if storkreds==7
replace E4002=114 if storkreds==8
replace E4002=99 if storkreds==9
replace E4002=90 if storkreds==10
replace E4002=9999 if storkreds==11
recode E4002 (.=9999)

gen E4002_N=9997
gen E4003=13
gen E4003_N=997

*Valgkreds procent i alt:
*data fra følgende link: https://www.dst.dk/valg/Valg1684447/other/Folketingsvalg2019.pdf

*S:
gen E4004_A=.
replace E4004_A=15 if storkreds==1
replace E4004_A=28.57 if storkreds==2
replace E4004_A=21.43 if storkreds==3
replace E4004_A=50 if storkreds==4
replace E4004_A=27.59 if storkreds==5
replace E4004_A=33.33 if storkreds==6
replace E4004_A=28.57 if storkreds==7
replace E4004_A=28 if storkreds==8
replace E4004_A=25 if storkreds==9
replace E4004_A=36.84 if storkreds==10
recode E4004_A (.=999)

*R:
gen E4004_B=.
replace E4004_B=15 if storkreds==1
replace E4004_B=14.29 if storkreds==2
replace E4004_B=14.29 if storkreds==3
replace E4004_B=0 if storkreds==4
replace E4004_B=6.9 if storkreds==5
replace E4004_B=6.67 if storkreds==6
replace E4004_B=4.76 if storkreds==7
replace E4004_B=12 if storkreds==8
replace E4004_B=6.25 if storkreds==9
replace E4004_B=5.26 if storkreds==10
recode E4004_B (.=999)

*K*
gen E4004_C=.
replace E4004_C=5 if storkreds==1
replace E4004_C=7.14 if storkreds==2
replace E4004_C=14.28 if storkreds==3
replace E4004_C=0 if storkreds==4
replace E4004_C=6.9 if storkreds==5
replace E4004_C=6.67 if storkreds==6
replace E4004_C=4.76 if storkreds==7
replace E4004_C=4 if storkreds==8
replace E4004_C=12.5 if storkreds==9
replace E4004_C=5.26 if storkreds==10
recode E4004_C (.=999)

*Nye borgerlige:
gen E4004_D=.
replace E4004_D=0 if storkreds==1
replace E4004_D=0 if storkreds==2
replace E4004_D=7.14 if storkreds==3
replace E4004_D=0 if storkreds==4
replace E4004_D=3.45 if storkreds==5
replace E4004_D=0 if storkreds==6
replace E4004_D=4.76 if storkreds==7
replace E4004_D=4 if storkreds==8
replace E4004_D=0 if storkreds==9
replace E4004_D=0 if storkreds==10
recode E4004_D (.=999)

*SF*
gen E4004_E=.
replace E4004_E=15 if storkreds==1
replace E4004_E=7.14 if storkreds==2
replace E4004_E=7.14 if storkreds==3
replace E4004_E=0 if storkreds==4
replace E4004_E=10.34 if storkreds==5
replace E4004_E=6.67 if storkreds==6
replace E4004_E=4.76 if storkreds==7
replace E4004_E=8 if storkreds==8
replace E4004_E=6.26 if storkreds==9
replace E4004_E=5.26 if storkreds==10
recode E4004_E (.=999)

*LA:
gen E4004_F=.
replace E4004_F=5 if storkreds==1
replace E4004_F=0 if storkreds==2
replace E4004_F=0 if storkreds==3
replace E4004_F=0 if storkreds==4
replace E4004_F=0 if storkreds==5
replace E4004_F=0 if storkreds==6
replace E4004_F=4.76 if storkreds==7
replace E4004_F=4 if storkreds==8
replace E4004_F=6.25 if storkreds==9
replace E4004_F=0 if storkreds==10
recode E4004_F (.=999)

*DF:
gen E4004_G=.
replace E4004_G=5 if storkreds==1
replace E4004_G=7.14 if storkreds==2
replace E4004_G=7.14 if storkreds==3
replace E4004_G=0 if storkreds==4
replace E4004_G=10.34 if storkreds==5
replace E4004_G=13.34 if storkreds==6
replace E4004_G=14.29 if storkreds==7
replace E4004_G=8 if storkreds==8
replace E4004_G=6.25 if storkreds==9
replace E4004_G=10.53 if storkreds==10
recode E4004_G (.=999)

*V:
gen E4004_H=.
replace E4004_H=15 if storkreds==1
replace E4004_H=21.43 if storkreds==2
replace E4004_H=21.43 if storkreds==3
replace E4004_H=50 if storkreds==4
replace E4004_H=24.14 if storkreds==5
replace E4004_H=26.67 if storkreds==6
replace E4004_H=28.57 if storkreds==7
replace E4004_H=24 if storkreds==8
replace E4004_H=31.25 if storkreds==9
replace E4004_H=26.32 if storkreds==10
recode E4004_H (.=999)

*Ø:
gen E4004_I=.
replace E4004_I=20 if storkreds==1
replace E4004_I=7.14 if storkreds==2
replace E4004_I=7.14 if storkreds==3
replace E4004_I=0 if storkreds==4
replace E4004_I=6.9 if storkreds==5
replace E4004_I=6.67 if storkreds==6
replace E4004_I=4.76 if storkreds==7
replace E4004_I=4 if storkreds==8
replace E4004_I=6.25 if storkreds==9
replace E4004_I=5.26 if storkreds==10
recode E4004_I (.=999)

*Å:
gen E4004_J=.
replace E4004_J=5 if storkreds==1
replace E4004_J=7.14 if storkreds==2
replace E4004_J=0 if storkreds==3
replace E4004_J=0 if storkreds==4
replace E4004_J=3.45 if storkreds==5
replace E4004_J=0 if storkreds==6
replace E4004_J=0 if storkreds==7
replace E4004_J=4 if storkreds==8
replace E4004_J=0 if storkreds==9
replace E4004_J=5.26 if storkreds==10
recode E4004_J (.=999)


gen E4004_A_N=997
gen E4004_B_N=997
gen E4004_C_N=997
gen E4004_D_N=997
gen E4004_E_N=997
gen E4004_F_N=997
gen E4004_G_N=997
gen E4004_H_N=997
gen E4004_I_N=997


*antal sæder i distriktet:

*S:
gen E4005_A=.
replace E4005_A=3 if storkreds==1
replace E4005_A=4 if storkreds==2
replace E4005_A=3 if storkreds==3
replace E4005_A=1 if storkreds==4
replace E4005_A=8 if storkreds==5
replace E4005_A=5 if storkreds==6
replace E4005_A=6 if storkreds==7
replace E4005_A=7 if storkreds==8
replace E4005_A=4 if storkreds==9
replace E4005_A=7 if storkreds==10
recode E4005_A (.=999)

*R:
gen E4005_B=.
replace E4005_B=3 if storkreds==1
replace E4005_B=2 if storkreds==2
replace E4005_B=2 if storkreds==3
replace E4005_B=0 if storkreds==4
replace E4005_B=2 if storkreds==5
replace E4005_B=1 if storkreds==6
replace E4005_B=1 if storkreds==7
replace E4005_B=3 if storkreds==8
replace E4005_B=1 if storkreds==9
replace E4005_B=1 if storkreds==10
recode E4005_B (.=999)

*K:
gen E4005_C=.
replace E4005_C=1 if storkreds==1
replace E4005_C=1 if storkreds==2
replace E4005_C=2 if storkreds==3
replace E4005_C=0 if storkreds==4
replace E4005_C=2 if storkreds==5
replace E4005_C=1 if storkreds==6
replace E4005_C=1 if storkreds==7
replace E4005_C=1 if storkreds==8
replace E4005_C=2 if storkreds==9
replace E4005_C=1 if storkreds==10
recode E4005_C (.=999)

*Nye borgerlige:
gen E4005_D=.
replace E4005_D=0 if storkreds==1
replace E4005_D=0 if storkreds==2
replace E4005_D=1 if storkreds==3
replace E4005_D=0 if storkreds==4
replace E4005_D=1 if storkreds==5
replace E4005_D=0 if storkreds==6
replace E4005_D=1 if storkreds==7
replace E4005_D=1 if storkreds==8
replace E4005_D=0 if storkreds==9
replace E4005_D=0 if storkreds==10
recode E4005_D (.=999)

*SF:
gen E4005_E=.
replace E4005_E=3 if storkreds==1
replace E4005_E=1 if storkreds==2
replace E4005_E=1 if storkreds==3
replace E4005_E=0 if storkreds==4
replace E4005_E=3 if storkreds==5
replace E4005_E=1 if storkreds==6
replace E4005_E=1 if storkreds==7
replace E4005_E=2 if storkreds==8
replace E4005_E=1 if storkreds==9
replace E4005_E=1 if storkreds==10
recode E4005_E (.=999)

*LA: 
gen E4005_F=.
replace E4005_F=1 if storkreds==1
replace E4005_F=0 if storkreds==2
replace E4005_F=0 if storkreds==3
replace E4005_F=0 if storkreds==4
replace E4005_F=0 if storkreds==5
replace E4005_F=0 if storkreds==6
replace E4005_F=1 if storkreds==7
replace E4005_F=1 if storkreds==8
replace E4005_F=1 if storkreds==9
replace E4005_F=0 if storkreds==10
recode E4005_F (.=999)

*DF:
gen E4005_G=.
replace E4005_G=1 if storkreds==1
replace E4005_G=1 if storkreds==2
replace E4005_G=1 if storkreds==3
replace E4005_G=0 if storkreds==4
replace E4005_G=3 if storkreds==5
replace E4005_G=2 if storkreds==6
replace E4005_G=3 if storkreds==7
replace E4005_G=2 if storkreds==8
replace E4005_G=1 if storkreds==9
replace E4005_G=2 if storkreds==10
recode E4005_G (.=999)

*V:
gen E4005_H=.
replace E4005_H=3 if storkreds==1
replace E4005_H=3 if storkreds==2
replace E4005_H=3 if storkreds==3
replace E4005_H=1 if storkreds==4
replace E4005_H=7 if storkreds==5
replace E4005_H=4 if storkreds==6
replace E4005_H=6 if storkreds==7
replace E4005_H=6 if storkreds==8
replace E4005_H=5 if storkreds==9
replace E4005_H=5 if storkreds==10
recode E4005_H (.=999)

*Ø:
gen E4005_I=.
replace E4005_I=4 if storkreds==1
replace E4005_I=1 if storkreds==2
replace E4005_I=1 if storkreds==3
replace E4005_I=0 if storkreds==4
replace E4005_I=2 if storkreds==5
replace E4005_I=1 if storkreds==6
replace E4005_I=1 if storkreds==7
replace E4005_I=1 if storkreds==8
replace E4005_I=1 if storkreds==9
replace E4005_I=1 if storkreds==10
recode E4005_I (.=999)

*Å:
gen E4005_J=.
replace E4005_J=1 if storkreds==1
replace E4005_J=1 if storkreds==2
replace E4005_J=0 if storkreds==3
replace E4005_J=0 if storkreds==4
replace E4005_J=1 if storkreds==5
replace E4005_J=0 if storkreds==6
replace E4005_J=0 if storkreds==7
replace E4005_J=1 if storkreds==8
replace E4005_J=0 if storkreds==9
replace E4005_J=1 if storkreds==10
recode E4005_J (.=999)


gen E4005_A_N=997
gen E4005_B_N=997
gen E4005_C_N=997
gen E4005_D_N=997
gen E4005_E_N=997
gen E4005_F_N=997
gen E4005_G_N=997
gen E4005_H_N=997
gen E4005_I_N=997


gen E4006=84.6
gen E4006_N=84.6

*mennesker i distrikterne:
gen E4007=.
replace E4007=538346 if storkreds==1
replace E4007=370371 if storkreds==2
replace E4007=335601 if storkreds==3
replace E4007=31214  if storkreds==4
replace E4007=628910 if storkreds==5
replace E4007=374322 if storkreds==6
replace E4007=528108 if storkreds==7
replace E4007=584347 if storkreds==8
replace E4007=383367 if storkreds==9
replace E4007=444951 if storkreds==10
recode E4007 (.=99999999)

gen E4007_N=4219536


******** Her starter variable på landsplan:

*procent stemmer:
gen E5001_A=25.9 // S
gen E5001_B=8.63 // R
gen E5001_C=6.62 // K
gen E5001_D=2.36 // Nye borgerlige
gen E5001_E=7.71 // SF
gen E5001_F=2.33 // LA
gen E5001_G=8.74 // DF
gen E5001_H=23.39 // V
gen E5001_I=6.94 // Ø
gen E5001_J=2.95 // Å
*gen E5001_E=0.94 // riskær
*gen E5001_H=1.73 // KD

*procent af mandaterne:
gen E5002_A=26.81 // S
gen E5002_B=8.94 // R
gen E5002_C=6.7 // K
gen E5002_D=2.23 // Nye borgerlige
gen E5002_E=7.82 // SF
gen E5002_F=2.33 // LA
gen E5002_G=8.94 // DF
gen E5002_H=24.02 // V
gen E5002_I=7.26 // Ø
gen E5002_J=2.79 // Å
*gen E5002_E=0 // riskær
*gen E5002_H=0 // KD

*president og upper house - ikke relevant for DK:
gen E5003_A=996
gen E5003_B=996
gen E5003_C=996
gen E5003_D=996
gen E5003_E=996
gen E5003_F=996
gen E5003_G=996
gen E5003_H=996
gen E5003_I=996

gen E5004_A=996
gen E5004_B=996
gen E5004_C=996
gen E5004_D=996
gen E5004_E=996
gen E5004_F=996
gen E5004_G=996
gen E5004_H=996
gen E5004_I=996

gen E5005_A=996
gen E5005_B=996
gen E5005_C=996
gen E5005_D=996
gen E5005_E=996
gen E5005_F=996
gen E5005_G=996
gen E5005_H=996
gen E5005_I=996

gen E5006_1=84.6
gen E5006_2=84.6
gen E5007_1=2
gen E5007_2=1

*muligt at stemme på andre måder end på dagen:
gen E5008_1=1
gen E5008_2=1
gen E5008_3=5

gen E5009=999997
gen E5010=208010
/*
label define E5010 208010 "208010. DEN - LIBERALS", modify
label values E5010 E5010
*/

*antal ministerier pr. parti FØR valget:
gen E5011_A=0 // S
gen E5011_B=0 // R
gen E5011_C=3 // K
gen E5011_D=0 // Nye borgerlige
gen E5011_E=0 // SF
gen E5011_F=6 // LA
gen E5011_G=0 // DF
gen E5011_H=12 // V
gen E5011_I=0 // Ø
gen E5011_J=0 // Å
*gen E5011_E=0 // riskær
*gen E5011_H=0 // KD

*antal ministre før valget:
gen E5012=21

*EFTER valget:
gen E5013=999997
gen E5014=208001
/* defineres efter merge - står her bare så jeg kan se hvad der er hvad i variablen:
label define E5014 208001 "208001. DEN - SOCIAL DEMOCRATS*, modify
label values E5014 E5014
*/

*ministre partier EFTER valget:
gen E5015_A=20 // S
gen E5015_B=0 // R
gen E5015_C=0 // K
gen E5015_D=0 // Nye borgerlige
gen E5015_E=0 // SF
gen E5015_F=6 // LA
gen E5015_G=0 // DF
gen E5015_H=0 // V
gen E5015_I=0 // Ø
gen E5015_J=0 // Å
*gen E5015_E=0 // riskær
*gen E5015_H=0 // KD

gen E5016=20

*partiernes ideologiske familier:
gen E5017_A=4 // S
gen E5017_B=5 // R
gen E5017_C=9 // K
gen E5017_D=10 // Nye borgerlige
gen E5017_E=3 // SF
gen E5017_F=6 // LA
gen E5017_G=10 // DF
gen E5017_H=6 // V
gen E5017_I=3 // Ø
gen E5017_J=1 // Å
*gen E5017_E=15 // riskær
*gen E5017_H=8 // KD

*placering af partierne på en højre-venstre akse:
gen E5018_A=4 // S
gen E5018_B=5 // R
gen E5018_C=7 // K
gen E5018_D=10 // Nye borgerlige
gen E5018_E=3 // SF
gen E5018_F=8 // LA
gen E5018_G=10 // DF
gen E5018_H=6 // V
gen E5018_I=1 // Ø
gen E5018_J=2  // Å
*gen E5018_E=5 // riskær
*gen E5018_H=8 // KD

*ingen alternativ dimension:
gen E5019=5
gen E5019_A=99
gen E5019_B=99
gen E5019_C=99
gen E5019_D=99
gen E5019_E=99
gen E5019_F=99
gen E5019_G=99
gen E5019_H=99
gen E5019_I=99

*populisme - anti establishment dimension valgt her:
gen E5020=1
gen E5020_A=6 // S
gen E5020_B=1 // R
gen E5020_C=7 // K
gen E5020_D=10 // Nye borgerlige
gen E5020_E=5 // SF
gen E5020_F=3 // LA
gen E5020_G=8 // DF
gen E5020_H=0 // V
gen E5020_I=9 // Ø
gen E5020_J=7  // Å
*gen E5020_E=5 // riskær
*gen E5020_H=4 // KD

*vigtigste faktorer i valget: 
gen E5021_1=65
gen E5021_2=66
gen E5021_3=67
gen E5021_4=68
gen E5021_5=999

*valgets fairness:
gen E5022=1
gen E5023=5
gen E5024=5

*valgudskrivelse:
gen E5025_1=5
gen E5025_2=7
gen E5025_3=2019

*valgdato:
gen E5026_1=6
gen E5026_2=5
gen E5026_3=2019

*fejl osv. ved valget + regler for selve valgproceduren:
gen E5027=0
gen E5028=1
gen E5029=1
gen E5030=1
gen E5031=1
gen E5032=5
gen E5033=5
gen E5034=7
gen E5035=7
gen E5036=5
gen E5037=7
gen E5038=7
gen E5039=7
gen E5040_1=1
gen E5040_2=97
gen E5040_3=97
gen E5040_4=97
gen E5041_1=1
gen E5041_2=7
gen E5041_3=7
gen E5041_4=7
gen E5042_1=1
gen E5042_2=97
gen E5042_3=97
gen E5042_4=97
gen E5043_1=2
gen E5043_2=7
gen E5043_3=7
gen E5043_4=7
gen E5044_1=5
gen E5044_2=7
gen E5044_3=7
gen E5044_4=7
gen E5045_1=5
gen E5045_2=7
gen E5045_3=7
gen E5045_4=7
gen E5046_1=5
gen E5046_2=7
gen E5046_3=7
gen E5046_4=7
gen E5047_1=1
gen E5047_2=7
gen E5047_3=7
gen E5047_4=7
gen E5048_1=2
gen E5048_2=97
gen E5048_3=97
gen E5048_4=97
gen E5049_1=2
gen E5049_2=7
gen E5049_3=7
gen E5049_4=7

*lidt om "regimets" karakteristika:
gen E5050=170
gen E5051=1
gen E5052=60
gen E5053=997
gen E5054=7
gen E5055=2
gen E5056=1
gen E5057=7
gen E5058=7
gen E5059=7
gen E5060=92
gen E5061=1
gen E5062=34
gen E5063=997
gen E5064=997
gen E5065=97
gen E5066=997
gen E5067=997
gen E5068=97
gen E5069=0
gen E5070=0
gen E5071=5
gen E5072=179
gen E5073=5
gen E5074=1
gen E5075=37.4
gen E5076_1=1
gen E5076_2=1
gen E5077=13

gen E5078=999
gen E5079=999
gen E5080=999
gen E5081=999
gen E5082_1=1
gen E5082_2=1
gen E5082_3=5
gen E5082_4=2 

*** Her starter variable som handler om forskellige ratings på nationalt niveau:

*freedom house:
gen E5090_1=1
gen E5090_2=1
gen E5090_3=1

*polity IV:
gen E5091_1=10
gen E5091_2=10
gen E5091_3=10

*gini-koefficient:
gen E5092=29.3

* BNP vækst årlig %:
gen E5093_1=99  // ikke tal fra 2019 endnu i alle de næste
gen E5093_2=1.5
gen E5093_3=2.3

*BNP pr. indb. i int.$:
gen E5094_1=999999
gen E5094_2=55105
gen E5094_3=54356.5

*inflation:
gen E5095_1=99999
gen E5095_2=0.6
gen E5095_3=1.4

*offentlig gæld:
gen E5096_1=999
gen E5096_2=34.2
gen E5096_3=35.5

*HDI:
gen E5097_1=999
gen E5097_2=999
gen E5097_3=0.93

*befolkningstal:
gen E5098_1=999999999
gen E5098_2=5797446
gen E5098_3=5764980

*arbejdsløshed:
gen E5099_1=999
gen E5099_2=5
gen E5099_3=5.7

*ungdomsarbejdsløshed:
gen E5100_1=999
gen E5100_2=9.4
gen E5100_3=11

gen E5101=5

*korruption:
gen E5102=88
gen E5103_1=999 //noget med standardfejl for korruptionsindex - kan jeg ikke finde
gen E5103_1se=999
gen E5103_2=999
gen E5103_2se=999
gen E5103_3=999
gen E5103_3se=999

*QOC experts:
gen E5104_1=1.45
gen E5104_2=2.2
gen E5104_3=5.9
gen E5104_4=5.95

*nettomigrationsrate:
gen E5105_1=1.7
gen E5105_2=3.2
gen E5105_3=3.8
gen E5105_4=2.6

*statsborgerskab - fra DST 1. kvartal 2019:
gen E5106_1=90.94
gen E5106_2=9.06
gen E5106_3=0

*fraktionalisering:
gen E5107=0.0629 //lingvistisk
gen E5108=0.1567 //religiøs
gen E5109=0.0238 // etnisk
gen E5110=0 // Polity fragmentation index:

*telefonforb: 
gen E5111=97.6
gen E5112=125.1
gen E5113=19.7

*danske partiers koder i the MARPOR/CMP party register:
gen E5200_A=13320 // S
gen E5200_B=13410 // R
gen E5200_C=13620 // K
gen E5200_D=999999 // Nye borgerlige
gen E5200_E=13230 // SF
gen E5200_F=13001 // LA
gen E5200_G=13720 // DF
gen E5200_H=13420 // V
gen E5200_I=13229 // Ø
gen E5200_J=999999 // Å
*gen E5200_E=999999 // riskær
*gen E5200_H=13520 // KD

* PARLIAMENTS AND GOVERNMENT DATABASE (PARLGOV) IDENTIFIER
gen E5201_A=1629 // S
gen E5201_B=211 // R
gen E5201_C=590 // K
gen E5201_D=9999 // Nye borgerlige
gen E5201_E=1644 // SF
gen E5201_F=376 // LA
gen E5201_G=1418 // DF
gen E5201_H=1605 // V
gen E5201_I=306 // Ø
gen E5201_J=2567 // Å
*gen E5201_E=9999 // riskær
*gen E5201_H=1331 // KD


******************************************************************
*dropper alle de gamle variable som ikke er blevet rekodet:
drop stimuli_brev stimuli_brev_rev stimuli_paamindelse q01_1_resp q02_1_resp q03_1_resp q04_1_resp q04_2_resp ///
q04_3_resp q04_4_resp q04_5_resp q04_6_resp q04_7_resp q05_1_resp q05_2_resp q05_3_resp q05_4_resp q05_5_resp ///
q06_1_resp q06_2_resp q06_3_resp q06_4_resp q07_1_resp q08_1_resp q09_1_resp q10a_1_resp q10b q11_1_resp q12a_1_resp ///
q12b_1_resp q12c q13a_1_resp q13b_1_resp q13c q14a q14b q15_1_resp q15_2_resp q15_3_resp q15_4_resp q15_5_resp ///
q15_6_resp q15_7_resp q15_8_resp q15_9_resp q15_10_resp q15_11_resp q15_12_resp q15_13_resp q16_1_resp q16_2_resp q16_3_resp ///
q16_4_resp q16_5_resp q16_6_resp q16_7_resp q16_8_resp q16_9_resp q16_10_resp q16_11_resp q16_12_resp q16_13_resp q17_1_resp ///
q17_2_resp q17_3_resp q17_4_resp q17_5_resp q17_6_resp q17_7_resp q17_8_resp q17_9_resp q17_10_resp q17_11_resp ///
q17_12_resp q17_13_resp q18_1_resp q19a_1_resp q19a_2_resp q19a_3_resp q19a_4_resp q19a_5_resp q19a_6_resp q19a_7_resp q19a_8_resp ///
q19a_9_resp q19a_10_resp q19a_11_resp q19a_12_resp q19a_13_resp q20a_1_resp q21_1_resp q22a_1_resp q22b_1_resp q22c q22d D01_1 ///
D01_2 D01_3 D01_4 D01_5 D01_o1 D01_o2 D10 D10b D10b_o1 D11 D16_1_resp D16_2_resp D17a D17b D17b_o1 D18a D19 D20 D02 ///
D03 D04 D05 D06 D07a D07a_o2 D07c D08 D08_o6 D21 D22 D22_o1 D23 D24_01 D24_02 D24_03 D24_04 D24_05 D24_06 ///
D24_07 D24_08 D24_09 D24_10 D24_11 D24_12 D24_13 D24_14 D24_15 D25_10_resp D25_11_resp D25_12_resp D25_13_resp D25_1_resp ///
D25_2_resp D25_3_resp D25_4_resp D25_5_resp D25_6_resp D25_7_resp D25_8_resp D25_9_resp D26_1 D26_2 D26_3 D26_o1 ///
D26_o2 D26_o3 D27_1_resp D27_2_resp D27_3_resp D28_1_resp D28_2_resp D28_3_resp D29_1_resp D29_2_resp D29_3_resp ///
D30_1_resp D30_2_resp D30_3_resp D31_1_resp D31_2_resp D31_3_resp D32_1_resp D32_2_resp D32_3_resp D33_1_resp ///
D33_2_resp D33_3_resp fmaaned nD20 starttidspunkt sluttidspunkt storkreds Status weight_2 weight_4 ///
startdato slutdato udd sample q18b parti19 lenght kon complete c_komn c_kom alderkat alder_på_valgdag alder C_KON_dst C_KON



*****************************************************************

*TIL MERGE!:

*Saving DNES2019 CSESdata Sidsel
compress
save "DNES2019_cses5.dta", replace

*Loading CSES5 - CSES Module 5, must be dxownloaded from CSES WEBPAGED
use "cses5.dta", clear

*Appending DNES
append using "DNES2019_cses5.dta", force


******************************************************************
*Herefter tilføjes danske labels/værdier:

label define E1003 20802020 "20802019. DENMARK (2019)", modify
label values E1003 E1003

label define E3010_2 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" ///
208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" 208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" ///
208007 "208007. DEN - LIBERAL ALLIANCE" 208008 "208008. DEN - CHRISTIAN DEMOCRATS" ///
208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999997 "999997. VOLUNTEERED: REFUSED" 999999 "999999. MISSING", modify
label values E3010_2 E3010_2

label define E3013_LH_PL 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" ///
208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" 208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" ///
208007 "208007. DEN - LIBERAL ALLIANCE" 208008 "208008. DEN - CHRISTIAN DEMOCRATS" ///
208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999993 "999993. INVALID/BLANK BALLOT" 999997 "999997. VOLUNTEERED: REFUSED" 999999 "999999. MISSING", modify
label values E3013_LH_PL E3013_LH_PL

label define E3015_LH_PL 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" ///
208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" 208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" ///
208007 "208007. DEN - LIBERAL ALLIANCE" 208008 "208008. DEN - CHRISTIAN DEMOCRATS" ///
208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999997 "999997. VOLUNTEERED: REFUSED" 999999 "999999. MISSING", modify
label values E3015_LH_PL E3015_LH_PL

label define E3024_3 208001 "208001. DEN - SOCIAL DEMOCRATS" 208002 "208002. DEN - SOCIAL LIBERALS" ///
208003 "208003. DEN - CONSERVATIVES" 208004 "208004. DEN - THE NEW RIGHT" 208005 "208005. DEN - KLAUS RISKÆR PEDERSEN LIST" ///
208006 "208006. DEN - SOCIALIST PEOPLE'S PARTY" 208007 "208007. DEN - LIBERAL ALLIANCE" ///
208008 "208008. DEN - CHRISTIAN DEMOCRATS" 208009 "208009. DEN - DANISH PEOPLE'S PARTY" 208010 "208010. DEN - LIBERALS" ///
208011 "208011. DEN - THE RED-GREEN ALLIANCE" 208012 "208012. THE ALTERNATIVE" ///
999992 "999992. OTHER CANDIDATE/PARTY (NOT FURTHER SPECIFIED)" 999997 "999997. VOLUNTEERED: REFUSED" ///
999999 "999999. MISSING", modify
label values E3024_3 E3024_3

label define E5010 208010 "208010. DEN - LIBERALS", modify
label values E5010 E5010
label define E5014 208001 "208001. DEN - SOCIAL DEMOCRATS", modify
label values E5014 E5014

recode E4004_J (.=999)
recode E4005_J (.=999)


******************************************************************
*SAMLET DANSK DATAFIL MED CSES-VARIABLE:
keep if E1004=="DEN_2019"
save DK_FV19_CSES_5.dta, replace


******************************************************************
/*ELECTION STUDY NOTES:

Denmark has 11 parties which got seats in the parliament in the election in 2019. therefore 1 more than the number of CSES variables for parties, E4004_J and E4005_J . 

The Danish CSES-study, post-election study: cpr-sample with 3.976 respondents (rr=35%), n=1.390, conducted from 6/9-19 to 28/9-19.

Data about election percentages from: https://www.dst.dk/valg/Valg1684447/other/Folketingsvalg2019.pdf

NOTE FOR CSES for E5021 1-4: 
Denmark:
1. 65 welfare - kindergartens, health care, general public services
2. 66 climate - demand for a ratified ambitious climate/environment law
3. 67 immigration - ongoing theme, to which degree of integration, public service, citizenship and religion. the circumstances in the refugee camps on Danish ground.
4. 68 economy - economic politics, whether more/less taxes and redistribution.
*/